home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 11 / CD Expert nº 11.iso / dkeeper / levels / x < prev   
Text File  |  1997-08-04  |  11KB  |  322 lines
  1. Comparing files MAP00001.TXT and t:\map00112.txt
  2. ****** MAP00001.TXT
  3. rem level 112 ~ Demo Level, BP
  4.  
  5. ****** t:\map00112.txt
  6. rem Demo Level
  7.  
  8. ******
  9.  
  10. ****** MAP00001.TXT
  11. create_party(victor)
  12.         add_to_party(victor,archer,2,600,attack_enemies,0)
  13.         add_to_party(victor,archer,1,400,attack_enemies,0)
  14.         add_to_party(victor,archer,1,400,attack_enemies,0)
  15.         add_to_party(victor,wizard,2,800,attack_enemies,0)
  16.  
  17. ****** t:\map00112.txt
  18. create_party(victor)
  19.         add_to_party(victor,archer,1,600,attack_enemies,0)
  20.         add_to_party(victor,archer,1,600,attack_enemies,0)
  21.         add_to_party(victor,archer,1,600,attack_enemies,0)
  22.  
  23. ******
  24.  
  25. ****** MAP00001.TXT
  26.  
  27. IF(PLAYER0, GAME_TURN >= 100)
  28.         DISPLAY_INFORMATION(1,PLAYER0)
  29. ****** t:\map00112.txt
  30.  
  31. IF(PLAYER0, GAME_TURN >= 45)
  32.         DISPLAY_INFORMATION(1,PLAYER0)
  33. ******
  34.  
  35. ****** MAP00001.TXT
  36.  
  37. IF(PLAYER0, GAME_TURN >= 450)
  38.         quick_information(33, "You may see a map of the entire realm by pressing 'M' or clicking on the scroll at the top-left 
  39. ****** t:\map00112.txt
  40.  
  41. IF(PLAYER0, GAME_TURN >= 200)
  42.         quick_information(33, "You may see a map of the entire realm by pressing 'M' or clicking on the scroll at the top-left 
  43. ******
  44.  
  45. ****** MAP00001.TXT
  46.         IF(PLAYER0,MONEY <= 1000)
  47.                 QUICK_INFORMATION(2,"Your gold reserves are running low. Tag to a gold seam. Your imps will mine it out and rep
  48. lenish your coffers.")
  49.         ENDIF
  50. ****** t:\map00112.txt
  51.         IF(PLAYER0,MONEY <= 1000)
  52.                 QUICK_INFORMATION(2,"Your gold reserves are running low. Tag the gold seam to the South. Your imps will mine it
  53.  out and replenish your coffers.")
  54.         ENDIF
  55. ******
  56.  
  57. ****** MAP00001.TXT
  58.  
  59.  
  60. IF(PLAYER0,TREASURE >= 9)
  61. ****** t:\map00112.txt
  62.  
  63. IF(PLAYER0,TREASURE >= 9)
  64. ******
  65.  
  66. ****** MAP00001.TXT
  67.         set_timer(player2,timer0)
  68.         set_flag(player0,flag4,1)
  69.         if(player2,timer0 >= 275)
  70.                 QUICK_INFORMATION(7,"Using the right mouse button (RMB), you may slap your creatures, thus making them work mor
  71. ****** t:\map00112.txt
  72.         set_timer(player2,timer0)
  73. endif
  74.  
  75. if(player2,timer0 >= 250)
  76.         quick_information(27,"You started this level with a little money. Should this initial reserve run low you can obtain mo
  77. re Money from mining gold seams. Tag areas of rock and gold to be mined by your Imps with Left Mouse Button.",0)
  78.         if(player2,timer0 >= 650)
  79.                 QUICK_INFORMATION(7,"Using the right mouse button (RMB), you may slap your creatures, thus making them work mor
  80. ******
  81.  
  82. ****** MAP00001.TXT
  83. e quickly. Be careful not to beat them too frequently! This will make them angry, or at worst you will beat them to death!")
  84.                 if(player2,timer0 >= 550)
  85.                         QUICK_INFORMATION(8,"Clicking with the LBM whilst over a minion will pick that creature up. Any eight o
  86. f the creatures you own can be carried in your hand like this. Use this method to place Imps next to the tasks that you wish th
  87. ****** t:\map00112.txt
  88. e quickly. Be careful not to beat them too frequently! This will make them angry, or at worst you will beat them to death!")
  89.                 if(player2,timer0 >= 950)
  90.                         QUICK_INFORMATION(8,"Clicking with the LMB whilst over a minion will pick that creature up. Any eight o
  91. f the creatures you own can be carried in your hand like this. Use this method to place Imps next to the tasks that you wish th
  92. ******
  93.  
  94. ****** MAP00001.TXT
  95.                 ENDIF
  96.         endif
  97. endif
  98. ****** t:\map00112.txt
  99.                 ENDIF
  100.         ENDIF
  101. endif
  102. ******
  103.  
  104. ****** MAP00001.TXT
  105.  
  106. if(player0,flag4 == 1)
  107.         if(player0,entrance >= 1)
  108.                 ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
  109.                 tutorial_flash_button(8,-1)
  110.                 quick_objective(19,"Now you have claimed a portal creatures will enter your dungeon seeking employment. You mus
  111. t build a 3X3 Lair to house your creatures. Larger Lairs hold more creatures.",player0)
  112.         endif
  113. endif
  114. ****** t:\map00112.txt
  115.  
  116. if(player0,entrance >= 1)
  117.         ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
  118.         tutorial_flash_button(8,-1)
  119.         quick_objective(19,"Now you have claimed a portal creatures will enter your dungeon seeking employment. You must build 
  120. a 3X3 Lair to house your creatures. Larger Lairs hold more creatures.",player0)
  121. endif
  122. ******
  123.  
  124. ****** MAP00001.TXT
  125. creature icon itself will select the most experienced specimen of the breed.")
  126. endif
  127. ****** t:\map00112.txt
  128. creature icon itself will select the most experienced specimen of the breed.")
  129.         tutorial_flash_button(5,-1)
  130. endif
  131. ******
  132.  
  133. ****** MAP00001.TXT
  134.                 SET_TIMER(PLAYER0,TIMER2)
  135.                 QUICK_OBJECTIVE(38,"Now that you have built the training room, you can tell your creatures to train by picking 
  136. them up with the LMB and dropping them in it.",player0)
  137. ****** t:\map00112.txt
  138.                 SET_TIMER(PLAYER0,TIMER2)
  139.                 QUICK_OBJECTIVE(35,"Now that you have built the training room, you can tell your creatures to train by picking 
  140. them up with the LMB and dropping them in it.",player0)
  141. ******
  142.  
  143. ****** MAP00001.TXT
  144.                 IF(PLAYER0,TIMER2 >= 800)
  145.                         QUICK_OBJECTIVE(18,"You may create more imps by choosing the Create Imp spell in the spell panel and th
  146. en clicking with the left mouse button on a section of your dungeon floor.",PLAYER0)
  147.                         tutorial_flash_button(21,-1)
  148.                         SET_FLAG(PLAYER_GOOD,FLAG0,1)
  149. ****** t:\map00112.txt
  150.                 IF(PLAYER0,TIMER2 >= 800)
  151.                         IF (PLAYER0, FLAG2 == 0)
  152.                                 QUICK_OBJECTIVE(18,"You may create more imps by choosing the Create Imp spell in the spell pane
  153. l and then clicking with the left mouse button on a section of your dungeon floor.",PLAYER0)
  154.                                 tutorial_flash_button(21,-1)
  155.                                 SET_FLAG(PLAYER0, FLAG2, 1)
  156.                         ENDIF
  157.                         SET_FLAG(PLAYER_GOOD,FLAG0,1)
  158. ******
  159.  
  160. ****** MAP00001.TXT
  161. IF_ACTION_POINT(2,PLAYER0)
  162.         if(player_good,thief == 0)
  163.         QUICK_objective(11,"The Heroes' castle lies out of reach on the far bank of the lava flow. Use bridges to connect your 
  164. land to the north bank.",player0)
  165.         TUTORIAL_FLASH_BUTTON(18, -1)
  166. ****** t:\map00112.txt
  167. IF_ACTION_POINT(2,PLAYER0)
  168.         QUICK_objective(11,"The Heroes' castle lies out of reach on the far bank of the lava flow. Use bridges to connect your 
  169. land to the north bank and seek out this nest of virtue.",player0)
  170.         TUTORIAL_FLASH_BUTTON(18, -1)
  171. ******
  172.  
  173. ****** MAP00001.TXT
  174.         SET_TIMER(PLAYER_GOOD,TIMER1)
  175.         ENDIF
  176. endif
  177.  
  178. ****** t:\map00112.txt
  179.         SET_TIMER(PLAYER_GOOD,TIMER1)
  180. ENDIF
  181.  
  182. ******
  183.  
  184. ****** MAP00001.TXT
  185. if(player0,troll >= 1)
  186.         quick_information(21,"A Troll has entered your dungeon. While not as intelligent as the average human, goblins make exc
  187. ellent soldiers.")
  188. endif
  189. ****** t:\map00112.txt
  190. if(player0,troll >= 1)
  191.         quick_information(21,"A goblin has entered your dungeon. While not as intelligent as the average human, goblins make ex
  192. cellent soldiers.")
  193. endif
  194. ******
  195.  
  196. ****** MAP00001.TXT
  197.  
  198. if_action_point(7,player0)
  199.         if(player_good,flag0 == 1)
  200.                 quick_objective(26,"From the markings, you have broken into an old dungeon. claim any assets remaining, but be 
  201. on your guard!",player0)
  202.                 ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,DUNGEON,0,2,600)
  203.         endif
  204. endif
  205.  
  206. ****** t:\map00112.txt
  207.  
  208. IF (PLAYER0,TOTAL_IMPS <= 3)
  209.         IF (PLAYER0, FLAG2 == 0)
  210.                 QUICK_OBJECTIVE(39,"You may create more imps by choosing the Create Imp spell in the spell panel and then click
  211. ing with the left mouse button on a section of your dungeon floor.",PLAYER0)
  212.                 SET_FLAG(PLAYER0, FLAG2, 1)
  213.         ENDIF
  214. ENDIF
  215.  
  216. ******
  217.  
  218. ****** MAP00001.TXT
  219. if_action_point(7,player0)
  220.         if(player_good,flag0 == 0)
  221.                 add_party_to_level(player_good,victor,7,1)
  222.                 quick_objective(28,"Danger! Your untidy exploration of this realm has left you exposed to the Lord's troops.",p
  223. layer0)
  224.                 set_timer(player2,timer3)
  225.         endif
  226. ****** t:\map00112.txt
  227. if_action_point(7,player0)
  228.         if(player_good,flag0 == 1)
  229.                 quick_objective(26,"From the markings, you have broken into an old dungeon. Claim any assets remaining, but be 
  230. on your guard!",player0)
  231.                 ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,DUNGEON,0,2,600)
  232.         endif
  233. ******
  234.  
  235. ****** MAP00001.TXT
  236.  
  237. if(player2,timer3 >= 350)
  238.         if(player_good,flag0 == 0)
  239.                 next_command_reusable
  240.                 add_party_to_level(player_good,victor,7,1)
  241.                 next_command_reusable
  242.                 set_timer(player2,timer3)
  243. ****** t:\map00112.txt
  244.  
  245. if_action_point(7,player0)
  246.         if(player_good,flag0 == 0)
  247.                 add_party_to_level(player_good,victor,7,1)
  248.                 quick_information(28,"Danger! Your untidy exploration of this realm has left you exposed to the Lord's troops."
  249. )
  250.                 set_timer(player2,timer3)
  251. ******
  252.  
  253. ****** MAP00001.TXT
  254.  
  255. if_action_point(3,player0)
  256.         quick_objective(37,"You've discovered the Heroes' castle.",player0)
  257.         add_party_to_level(player_good,final,player_good,1)
  258.         set_flag(player0,flag1,1)
  259. endif
  260. ****** t:\map00112.txt
  261.  
  262. if(player2,timer3 >= 350)
  263.         if(player_good,flag0 == 0)
  264.                 next_command_reusable
  265.                 add_party_to_level(player_good,victor,7,1)
  266.                 next_command_reusable
  267.                 set_timer(player2,timer3)
  268.         endif
  269. endif
  270. ******
  271.  
  272. ****** MAP00001.TXT
  273.  
  274. if_action_point(5,player0)
  275.        add_party_to_level(player_good,victor,-4,1)
  276. endif
  277. ****** t:\map00112.txt
  278.  
  279. if_action_point(3,player0)
  280.         quick_objective(37,"You've discovered the Heroes' castle. Break down the doors and wreak havoc upon the enemy!",player0
  281. )
  282. endif
  283. ******
  284.  
  285. ****** MAP00001.TXT
  286.  
  287. if(player0, flag1 == 1)
  288.         if(player_good, KNIGHT == 0)
  289.                 quick_objective(36,"You win",player0)
  290.                 win_game
  291.         endif
  292. endif
  293. ****** t:\map00112.txt
  294.  
  295. if_action_point(8,player0)
  296.         add_party_to_level(player_good,final,player_good,1)
  297.         set_flag(player0,flag1,1)
  298. endif
  299. ******
  300.  
  301. ****** MAP00001.TXT
  302.  
  303.  
  304.  
  305. ****** t:\map00112.txt
  306.  
  307. if_action_point(5,player0)
  308.        add_party_to_level(player_good,victor,-4,1)
  309. endif
  310.  
  311. if(player0, flag1 == 1)
  312.         if(player_good, KNIGHT == 0)
  313.                  quick_objective(36,"Congratulations. You have defeated the Lord of the Land and completed the Dungeon Keeper d
  314. emo.",player0)
  315.                 win_game
  316.         endif
  317. endif
  318.  
  319. ******
  320.  
  321.  
  322.